home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
winlib1.zip
/
EXAMPLES.ZIP
/
EXAM61.C
< prev
next >
Wrap
Text File
|
1991-01-05
|
850b
|
20 lines
#include <window.h>
#define NORM CREATE_VIDEO_ATTRIBUTE(black,white)
VWPOINTER vw; /* virtual window pointers */
WPOINTER w1, w2;
main()
{
WindowInitializeSystem();
WindowSaveInitial(0);
vw = VirtualInitialize(NOATTRIBUTE,30,80,0);
w1 = WindowInitialize(BORDER,1, 1,20,12,NORM,NORM,SINGLEBOX);
w2 = WindowInitialize(BORDER,13,1,20,10,NORM,NORM,DOUBLEBOX);
WindowOpen(w1);
WindowOpen(w2);
WindowDisplay(w1,1,NOEFFECT);
WindowDisplay(w2,2,NOEFFECT);
VirtualWriteString(vw,"This is a string",1,1);/* Write string to virtual window */
WindowAssignToVirtual(w1,vw,1,1); /* Assign viewport to virtual window */
WindowAssignToVirtual(w2,vw,1,10); /* Assign viewport to virtual
window */
}